home *** CD-ROM | disk | FTP | other *** search
/ GameStar 2004 April / Gamestar_61_2004-04_dvdb.iso / DVDStar / Editace / hltp.exe / {app} / Source Code / VirtualDub / sylia / objects.cpp next >
C/C++ Source or Header  |  2003-10-01  |  659b  |  31 lines
  1. #include <windows.h>
  2.  
  3. #include "ScriptInterpreter.h"
  4. #include "ScriptValue.h"
  5. #include "ScriptError.h"
  6.  
  7. static void func_Sylia_dprint(IScriptInterpreter *, CScriptObject *, CScriptValue *argv, int argc) {
  8.     char lbuf[12];
  9.  
  10.     while(argc--) {
  11.         if (argv->isInt()) {
  12.             wsprintf(lbuf, "%ld", argv->asInt());
  13.             OutputDebugString(lbuf);
  14.         } else if (argv->isString()) {
  15.             OutputDebugString(*argv->asString());
  16.         } else
  17.             SCRIPT_ERROR(TYPE_INT_REQUIRED);
  18.  
  19.         ++argv;
  20.     }
  21. }
  22.  
  23. static ScriptFunctionDef objFL_Sylia[]={
  24.     { (ScriptFunctionPtr)func_Sylia_dprint, "dprint", "0." },
  25.     { NULL }
  26. };
  27.  
  28. CScriptObject obj_Sylia={
  29.     NULL,
  30.     objFL_Sylia
  31. };